home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 019a / amac40.zip / RING@7.QM < prev    next >
Text File  |  1991-08-03  |  2KB  |  47 lines
  1. *                               RING@7.QM
  2. *                    [ See RINGxx.QM for discussion ]
  3. *                             August 3, 1991
  4. * ----------------------------------------------------------------------
  5. *   @(7)² Load At Command Line All Files From a Pre-Made List of Files,
  6. *         Modification of @1
  7. *        (Emulates PC Magazine's FILECTRL.COM After Loading)
  8. * ----------------------------------------------------------------------
  9. *     > Must be first macro in file to autoexecute at start up <
  10.  
  11. @7  MacroBegin
  12.     changefilename "NUL" return *                                           |
  13. *-- This section written by Kyles Watkins of SemWare -----
  14.     EndFile BegLine             * start at last line
  15.   REPEAT:
  16. *     UnmarkBlock                 * (line removed by TH, not needed)        |
  17.     MarkLine Copy               * grab this name
  18.     EditFile                    * get ready to load
  19.     CurrentFilename " "         * to force return *here*
  20.     Paste Return                * paste file name & do it!
  21.     CursorUp                    * more lines above?
  22.     JTrue REPEAT:               * if yes, repeat.
  23. *---------------------------------------------------------
  24. *     OneWindow                   * Close all windows (not necessary)       |
  25.     HorizontalWindow            * Open one window
  26.     EditFile Paste Return
  27.     PrevWindow                  * Window 1
  28.  SELECT:                        *
  29.     Pause                       * Pause to select file to edit
  30.     UnmarkBlock                 *
  31.     BegLine MarkLine            *
  32.     Copy                        * Copy selected file name to scrap
  33.     NextWindow                  *
  34.     EditFile Paste Return       * Edit selected file
  35.     ZoomWindow                  *
  36.     Pause                       *
  37.  EDIT:                          *
  38.     NextWindow                  * Return to PickList for another selection
  39.     MakeCtrofScreen             *
  40.  jump SELECT:                   *
  41. *
  42. * 41 bytes Mon  06-24-1991  23:23:00 (TH @7)
  43. * 47 bytes Wed  06-26-1991  10:12:41 (TH @7, added changefilename "NUL")
  44. *                                    (       removed unnecessary unmarkblock)
  45. *                                    (       removed unnecessary onewindow  )
  46.  
  47.